home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab100 / form2.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  80 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H0000C000&
  4.    Caption         =   "Select Option"
  5.    ClientHeight    =   2790
  6.    ClientLeft      =   1410
  7.    ClientTop       =   2955
  8.    ClientWidth     =   3870
  9.    Height          =   3195
  10.    Left            =   1350
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2790
  16.    ScaleWidth      =   3870
  17.    Top             =   2610
  18.    Width           =   3990
  19.    Begin CommandButton Help 
  20.       Caption         =   "Help"
  21.       Height          =   495
  22.       Left            =   2760
  23.       TabIndex        =   3
  24.       Top             =   2160
  25.       Width           =   615
  26.    End
  27.    Begin CommandButton Cancel 
  28.       Caption         =   "Cancel"
  29.       Height          =   495
  30.       Left            =   1440
  31.       TabIndex        =   2
  32.       Top             =   2160
  33.       Width           =   975
  34.    End
  35.    Begin CommandButton Ok 
  36.       Caption         =   "Ok"
  37.       Default         =   -1  'True
  38.       Height          =   495
  39.       Left            =   480
  40.       TabIndex        =   1
  41.       Top             =   2160
  42.       Width           =   615
  43.    End
  44.    Begin ListBox List1 
  45.       Height          =   1005
  46.       Left            =   480
  47.       TabIndex        =   0
  48.       Top             =   960
  49.       Width           =   2895
  50.    End
  51.    Begin Label Label1 
  52.       BackColor       =   &H0000FFFF&
  53.       Caption         =   "More Than One Combinations of Cards Match your Card's Value Please Pick One ?"
  54.       Height          =   615
  55.       Left            =   480
  56.       TabIndex        =   4
  57.       Top             =   120
  58.       Width           =   2895
  59.    End
  60. End
  61.  
  62. Sub Cancel_Click ()
  63.     Form1.OptionSelected.Caption = "0"
  64.     Unload Form2
  65. End Sub
  66.  
  67. Sub Help_Click ()
  68.     MsgBox ("Select 1 Option and Press Ok")
  69. End Sub
  70.  
  71. Sub Ok_Click ()
  72.     If List1.ListIndex = -1 Then
  73.         MsgBox ("No Option selected, Please Try Again")
  74.     Else
  75.         OptionSelected = (List1.ListIndex + 1)
  76.         Unload Form2
  77.     End If
  78. End Sub
  79.  
  80.